home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor1 / tvm.src < prev    next >
Text File  |  1990-10-18  |  798b  |  33 lines
  1. %%HP: T(3)A(D)F(.);
  2. @ by Kevin Jessup.
  3. DIR
  4.   PMT 0
  5.   I 0
  6.   FV 0
  7.   PV 0
  8.   cf 12
  9.   pf 12
  10.   N 12
  11.   BEG 0
  12.   EI '(1+I/100/cf)^(cf/pf)-1'
  13.   EQ { 'PV*(1+EI)^N+PMT*(1+EI*BEG)*((1+EI)^N-1)/EI+FV' {N I PV PMT FV
  14.      { "RESET" \<< RESET \>> }
  15.      { "BEG" \<< 1 SETBEG \>> }
  16.      { "END" \<< 0 SETBEG \>> } cf pf } }
  17.   RESET
  18.     \<< 0 DUP DUP DUP2 'PMT' STO 'I' STO 'FV' STO 'PV' STO SETBEG 12 DUP DUP
  19.       'N' STO 'pf' STO 'cf' STO "N=PF=CF=12" 2 DISP
  20.     \>>
  21.   SETBEG
  22.     \<< DUP 'BEG' STO
  23.       IF
  24.       THEN "BEGIN"
  25.       ELSE "END"
  26.       END " mode" + "" 2 DISP 1 DISP 1 FREEZE
  27.     \>>
  28.   TVM { 'PV*(1+EI)^N+PMT*(1+EI*BEG)*((1+EI)^N-1)/EI+FV' { N I PV PMT FV
  29.       { "RESET" \<< RESET \>> }
  30.       { "BEG" \<< 1 SETBEG \>> }
  31.       { "END" \<< 0 SETBEG \>> } cf pf } }
  32. END
  33.